home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / loadcmp.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1990-11-07  |  1.2 KB  |  48 lines
  1. (in-package 'compiler)
  2.  
  3.  
  4. (format t "~%Loading the whole compiler...")
  5. (let ((sysd (concatenate 'string si::*system-directory* "../cmpnew/")))
  6.   (load (merge-pathnames (concatenate 'string si::*system-directory*
  7.                       "../lsp/defstruct")))
  8.   (dolist (v     '(
  9.           
  10.            "cmpinline" 
  11.            "cmputil" 
  12.            "cmptype" 
  13.            "cmpbind" 
  14.            "cmpblock" 
  15.            "cmpcall" 
  16.            "cmpcatch" 
  17.            "cmpenv" 
  18.            "cmpeval" 
  19.            "cmpflet" 
  20.            "cmpfun" 
  21.            "cmpif" 
  22.            "cmplabel" 
  23.            "cmplam" 
  24.            "cmplet" 
  25.            "cmploc" 
  26.                     ; "cmpmain" 
  27.            "cmpmap" 
  28.            "cmpmulti" 
  29.            "cmpspecial" 
  30.            "cmptag" 
  31.            "cmptop" 
  32.            "cmpvar" 
  33.            "cmpvs" 
  34.            "cmpwt" 
  35.     ))
  36.      (load (merge-pathnames v sysd)))
  37.   (load (merge-pathnames "cmpmain.lsp" sysd)))
  38.  
  39. (defun compile-file
  40.     (&rest system::args &aux (*print-pretty* nil) (*package* *package*))
  41.     (compiler::init-env) (apply 'compiler::compile-file1 system::args))
  42. (defun compile (&rest system::args &aux (*print-pretty* nil))
  43.     (apply 'compiler::compile1 system::args))
  44. (defun disassemble (&rest system::args &aux (*print-pretty* nil))
  45.     (apply 'compiler::disassemble1 system::args))
  46. (setf (symbol-function 'si:clear-compiler-properties)
  47.        (symbol-function 'compiler::compiler-clear-compiler-properties))
  48.